object ANSIColor: TANSIColor Left = 198 Top = 147 ActiveControl = OKBtn BorderStyle = bsDialog Caption = 'Select ANSI Color' ClientHeight = 221 ClientWidth = 314 Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] Position = poScreenCenter OnCreate = FormCreate OnShow = FormShow PixelsPerInch = 96 TextHeight = 13 object Label1: TLabel Left = 8 Top = 32 Width = 81 Height = 13 Caption = 'Foreground Color' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object Label2: TLabel Left = 8 Top = 120 Width = 85 Height = 13 Caption = 'Background Color' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object Label3: TLabel Left = 8 Top = 8 Width = 297 Height = 13 Caption = 'Select a color by clicking on a foreground and background box' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object OKBtn: TBitBtn Left = 112 Top = 180 Width = 77 Height = 27 Caption = 'OK' Default = True Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ModalResult = 1 ParentFont = False TabOrder = 0 Margin = 2 NumGlyphs = 2 Spacing = -1 IsControl = True end object CancelBtn: TBitBtn Left = 196 Top = 180 Width = 77 Height = 27 Cancel = True Caption = 'Cancel' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ModalResult = 2 ParentFont = False TabOrder = 1 OnClick = CancelBtnClick Margin = 2 NumGlyphs = 2 Spacing = -1 IsControl = True end object Back0: TPanel Left = 24 Top = 136 Width = 25 Height = 25 TabOrder = 2 OnClick = Back0Click OnDblClick = Color0DblClick end object Back1: TPanel Tag = 1 Left = 56 Top = 136 Width = 25 Height = 25 TabOrder = 3 OnClick = Back0Click OnDblClick = Color0DblClick end object Back2: TPanel Tag = 2 Left = 88 Top = 136 Width = 25 Height = 25 TabOrder = 4 OnClick = Back0Click OnDblClick = Color0DblClick end object Back3: TPanel Tag = 3 Left = 120 Top = 136 Width = 25 Height = 25 TabOrder = 5 OnClick = Back0Click OnDblClick = Color0DblClick end object Back4: TPanel Tag = 4 Left = 152 Top = 136 Width = 25 Height = 25 TabOrder = 6 OnClick = Back0Click OnDblClick = Color0DblClick end object Back5: TPanel Tag = 5 Left = 184 Top = 136 Width = 25 Height = 25 TabOrder = 7 OnClick = Back0Click OnDblClick = Color0DblClick end object Back6: TPanel Tag = 6 Left = 216 Top = 136 Width = 25 Height = 25 TabOrder = 8 OnClick = Back0Click OnDblClick = Color0DblClick end object Back7: TPanel Tag = 7 Left = 248 Top = 136 Width = 25 Height = 25 TabOrder = 9 OnClick = Back0Click OnDblClick = Color0DblClick end object Color0: TPanel Left = 24 Top = 48 Width = 25 Height = 25 TabOrder = 10 OnClick = Color0Click OnDblClick = Color0DblClick end object Color1: TPanel Tag = 1 Left = 56 Top = 48 Width = 25 Height = 25 TabOrder = 11 OnClick = Color0Click OnDblClick = Color0DblClick end object Color2: TPanel Tag = 2 Left = 88 Top = 48 Width = 25 Height = 25 TabOrder = 12 OnClick = Color0Click OnDblClick = Color0DblClick end object Color3: TPanel Tag = 3 Left = 120 Top = 48 Width = 25 Height = 25 TabOrder = 13 OnClick = Color0Click OnDblClick = Color0DblClick end object Color4: TPanel Tag = 4 Left = 152 Top = 48 Width = 25 Height = 25 TabOrder = 14 OnClick = Color0Click OnDblClick = Color0DblClick end object Color5: TPanel Tag = 5 Left = 184 Top = 48 Width = 25 Height = 25 TabOrder = 15 OnClick = Color0Click OnDblClick = Color0DblClick end object Color6: TPanel Tag = 6 Left = 216 Top = 48 Width = 25 Height = 25 TabOrder = 16 OnClick = Color0Click OnDblClick = Color0DblClick end object Color7: TPanel Tag = 7 Left = 248 Top = 48 Width = 25 Height = 25 TabOrder = 17 OnClick = Color0Click OnDblClick = Color0DblClick end object Sample: TEdit Left = 24 Top = 184 Width = 81 Height = 21 TabStop = False Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False ReadOnly = True TabOrder = 18 Text = 'Sample Sample Sample' end object Color8: TPanel Tag = 8 Left = 24 Top = 80 Width = 25 Height = 25 TabOrder = 19 OnClick = Color0Click OnDblClick = Color0DblClick end object Color9: TPanel Tag = 9 Left = 56 Top = 80 Width = 25 Height = 25 TabOrder = 20 OnClick = Color0Click OnDblClick = Color0DblClick end object Color10: TPanel Tag = 10 Left = 88 Top = 80 Width = 25 Height = 25 TabOrder = 21 OnClick = Color0Click OnDblClick = Color0DblClick end object Color11: TPanel Tag = 11 Left = 120 Top = 80 Width = 25 Height = 25 TabOrder = 22 OnClick = Color0Click OnDblClick = Color0DblClick end object Color12: TPanel Tag = 12 Left = 152 Top = 80 Width = 25 Height = 25 TabOrder = 23 OnClick = Color0Click OnDblClick = Color0DblClick end object Color13: TPanel Tag = 13 Left = 184 Top = 80 Width = 25 Height = 25 TabOrder = 24 OnClick = Color0Click OnDblClick = Color0DblClick end object Color14: TPanel Tag = 14 Left = 216 Top = 80 Width = 25 Height = 25 TabOrder = 25 OnClick = Color0Click OnDblClick = Color0DblClick end object Color15: TPanel Tag = 15 Left = 248 Top = 80 Width = 25 Height = 25 TabOrder = 26 OnClick = Color0Click OnDblClick = Color0DblClick end end